object fCodeInside: TfCodeInside Left = 219 Top = 183 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'Insert new code inside object ...' ClientHeight = 281 ClientWidth = 493 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poScreenCenter PixelsPerInch = 96 TextHeight = 13 object CodeMan: TSynEdit Left = 0 Top = 41 Width = 493 Height = 217 Cursor = crIBeam Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Courier New' Font.Style = [] ParentColor = False ParentFont = False TabOrder = 1 Gutter.Font.Charset = DEFAULT_CHARSET Gutter.Font.Color = clWindowText Gutter.Font.Height = -11 Gutter.Font.Name = 'Terminal' Gutter.Font.Style = [] Gutter.Visible = False Keystrokes = < item Command = ecUp ShortCut = 38 end item Command = ecSelUp ShortCut = 8230 end item Command = ecScrollUp ShortCut = 16422 end item Command = ecDown ShortCut = 40 end item Command = ecSelDown ShortCut = 8232 end item Command = ecScrollDown ShortCut = 16424 end item Command = ecLeft ShortCut = 37 end item Command = ecSelLeft ShortCut = 8229 end item Command = ecWordLeft ShortCut = 16421 end item Command = ecSelWordLeft ShortCut = 24613 end item Command = ecRight ShortCut = 39 end item Command = ecSelRight ShortCut = 8231 end item Command = ecWordRight ShortCut = 16423 end item Command = ecSelWordRight ShortCut = 24615 end item Command = ecPageDown ShortCut = 34 end item Command = ecSelPageDown ShortCut = 8226 end item Command = ecPageBottom ShortCut = 16418 end item Command = ecSelPageBottom ShortCut = 24610 end item Command = ecPageUp ShortCut = 33 end item Command = ecSelPageUp ShortCut = 8225 end item Command = ecPageTop ShortCut = 16417 end item Command = ecSelPageTop ShortCut = 24609 end item Command = ecLineStart ShortCut = 36 end item Command = ecSelLineStart ShortCut = 8228 end item Command = ecEditorTop ShortCut = 16420 end item Command = ecSelEditorTop ShortCut = 24612 end item Command = ecLineEnd ShortCut = 35 end item Command = ecSelLineEnd ShortCut = 8227 end item Command = ecEditorBottom ShortCut = 16419 end item Command = ecSelEditorBottom ShortCut = 24611 end item Command = ecToggleMode ShortCut = 45 end item Command = ecCopy ShortCut = 16429 end item Command = ecCut ShortCut = 8238 end item Command = ecPaste ShortCut = 8237 end item Command = ecDeleteChar ShortCut = 46 end item Command = ecDeleteLastChar ShortCut = 8 end item Command = ecDeleteLastChar ShortCut = 8200 end item Command = ecDeleteLastWord ShortCut = 16392 end item Command = ecUndo ShortCut = 32776 end item Command = ecRedo ShortCut = 40968 end item Command = ecLineBreak ShortCut = 13 end item Command = ecLineBreak ShortCut = 8205 end item Command = ecTab ShortCut = 9 end item Command = ecShiftTab ShortCut = 8201 end item Command = ecContextHelp ShortCut = 16496 end item Command = ecSelectAll ShortCut = 16449 end item Command = ecCopy ShortCut = 16451 end item Command = ecPaste ShortCut = 16470 end item Command = ecCut ShortCut = 16472 end item Command = ecBlockIndent ShortCut = 24649 end item Command = ecBlockUnindent ShortCut = 24661 end item Command = ecLineBreak ShortCut = 16461 end item Command = ecInsertLine ShortCut = 16462 end item Command = ecDeleteWord ShortCut = 16468 end item Command = ecDeleteLine ShortCut = 16473 end item Command = ecDeleteEOL ShortCut = 24665 end item Command = ecUndo ShortCut = 16474 end item Command = ecRedo ShortCut = 24666 end item Command = ecGotoMarker0 ShortCut = 16432 end item Command = ecGotoMarker1 ShortCut = 16433 end item Command = ecGotoMarker2 ShortCut = 16434 end item Command = ecGotoMarker3 ShortCut = 16435 end item Command = ecGotoMarker4 ShortCut = 16436 end item Command = ecGotoMarker5 ShortCut = 16437 end item Command = ecGotoMarker6 ShortCut = 16438 end item Command = ecGotoMarker7 ShortCut = 16439 end item Command = ecGotoMarker8 ShortCut = 16440 end item Command = ecGotoMarker9 ShortCut = 16441 end item Command = ecSetMarker0 ShortCut = 24624 end item Command = ecSetMarker1 ShortCut = 24625 end item Command = ecSetMarker2 ShortCut = 24626 end item Command = ecSetMarker3 ShortCut = 24627 end item Command = ecSetMarker4 ShortCut = 24628 end item Command = ecSetMarker5 ShortCut = 24629 end item Command = ecSetMarker6 ShortCut = 24630 end item Command = ecSetMarker7 ShortCut = 24631 end item Command = ecSetMarker8 ShortCut = 24632 end item Command = ecSetMarker9 ShortCut = 24633 end item Command = ecNormalSelect ShortCut = 24654 end item Command = ecColumnSelect ShortCut = 24643 end item Command = ecLineSelect ShortCut = 24652 end item Command = ecMatchBracket ShortCut = 24642 end> Lines.Strings = ( 'Fill in your code here ...') end object Panel1: TPanel Left = 0 Top = 0 Width = 493 Height = 41 Align = alTop BevelOuter = bvLowered TabOrder = 0 object Label1: TLabel Left = 4 Top = 3 Width = 19 Height = 12 Caption = 'Key' Enabled = False Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Verdana' Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 250 Top = 3 Width = 47 Height = 12 Caption = 'Comment' Enabled = False Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Verdana' Font.Style = [fsBold] ParentFont = False end object Edit1: TEdit Left = 3 Top = 17 Width = 241 Height = 21 TabOrder = 0 end object Edit2: TEdit Left = 249 Top = 17 Width = 241 Height = 21 TabOrder = 1 end end object Panel2: TPanel Left = 0 Top = 258 Width = 493 Height = 23 Align = alBottom BevelOuter = bvLowered TabOrder = 2 object Button1: TButton Left = 205 Top = 2 Width = 84 Height = 19 Caption = 'Ok' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Verdana' Font.Style = [fsBold] ParentFont = False TabOrder = 0 OnClick = Button1Click end end object SynCssSyn1: TSynCssSyn DefaultFilter = 'Cascading Stylesheets (*.css)|*.css' CommentAttri.Foreground = clGray IdentifierAttri.Foreground = clGreen KeyAttri.Foreground = clNavy NumberAttri.Foreground = clFuchsia StringAttri.Foreground = clBlue StringAttri.Style = [fsBold] SymbolAttri.Foreground = clNavy SymbolAttri.Style = [fsBold] Left = 432 Top = 48 end object SynHTMLSyn1: TSynHTMLSyn DefaultFilter = 'HTML Document (*.htm,*.html)|*.htm;*.html' AndAttri.Foreground = 13351092 CommentAttri.Foreground = clGray IdentifierAttri.Foreground = 6510397 KeyAttri.Foreground = 4194432 SpaceAttri.Foreground = clBlack SymbolAttri.Foreground = clBlack TextAttri.Foreground = clBlack ValueAttri.Foreground = 10246192 Left = 432 Top = 96 end object SynJScriptSyn1: TSynJScriptSyn DefaultFilter = 'JavaScript files (*.js)|*.js' CommentAttri.Foreground = clGray IdentifierAttri.Foreground = clTeal IdentifierAttri.Style = [fsBold] KeyAttri.Foreground = clPurple NumberAttri.Foreground = clRed StringAttri.Foreground = clBlue SymbolAttri.Foreground = clGreen SymbolAttri.Style = [fsBold] Left = 432 Top = 192 end object SynMultiSyn1: TSynMultiSyn Schemes = < item CaseSensitive = True StartExpr = '' Highlighter = SynCssSyn1 MarkerAttri.Background = clNone MarkerAttri.Foreground = clPurple MarkerAttri.Style = [fsBold] SchemeName = 'CSS Full' end item CaseSensitive = True StartExpr = '' Highlighter = SynCssSyn1 MarkerAttri.Background = clNone MarkerAttri.Foreground = clFuchsia MarkerAttri.Style = [fsBold] SchemeName = 'CSS Style' end item CaseSensitive = True StartExpr = '' Highlighter = SynJScriptSyn1 MarkerAttri.Background = clNone MarkerAttri.Foreground = clMaroon MarkerAttri.Style = [fsBold] SchemeName = 'JS Full' end item CaseSensitive = True StartExpr = '' Highlighter = SynJScriptSyn1 MarkerAttri.Background = clNone MarkerAttri.Foreground = clRed MarkerAttri.Style = [fsBold] SchemeName = 'JS Script' end> DefaultHighlighter = SynHTMLSyn1 Left = 432 Top = 144 end end